home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GDAID.for < prev    next >
Text File  |  1991-04-13  |  359b  |  20 lines
  1.     SUBROUTINE GDAID(X,Y,XGUPCM,YGUPCM,IX,IY)
  2.         IMPLICIT NONE
  3.         REAL*4 X,Y,XGUPCM,YGUPCM
  4.         INTEGER IX,IY
  5. C
  6.     IX = XGUPCM*X + 0.5
  7.     IY = YGUPCM*Y + 0.5
  8.     RETURN
  9.     END
  10. C
  11.     SUBROUTINE GDGAID(IX,IY,XGUPCM,YGUPCM,X,Y)
  12.         IMPLICIT NONE
  13.         REAL*4 XGUPCM,YGUPCM,X,Y
  14.         INTEGER IX,IY
  15. C
  16.     X = FLOAT(IX)/XGUPCM
  17.     Y = FLOAT(IY)/YGUPCM
  18.     RETURN
  19.     END
  20.